1 REM  ****************************
2 REM  *   VERSTECKTES DIRECTORY  *
3 REM  *   GESCHRIEBEN 1987 VON   *
4 REM  *       RAIMUND GENES      *
5 REM  ****************************
10 PRINT"[147]            WAEHLEN SIE:"
20 PRINT"     1=DIRECTORY VERSTECKEN"
30 PRINT"     2=DIRECTORY SICHTBAR MACHEN"
40 PRINT"     3=ABBRUCH"
50 GETA$:IFA$=""THEN60
60 IFA$="1"THEN B=255:T$="VERSTECKEN":GOTO 100
70 IFA$="2"THEN B=0:T$="SICHTBAR MACHEN":GOTO 100
80 IFA$="3"THEN END
90 GOTO50
100 PRINT"[147]      DIRECTORY ";T$,"[146]"
110 PRINT"  DRUECKEN SIE 'J' ZUM AUSFUEHREN"
120 PRINT"               'N' ZUM ABBRUCH"
130 GETA$:IFA$=""THEN130
140 IFA$="J"THEN 170
150 IFA$="N"THEN 10
160 GOTO130
170 OPEN15,8,15,"I"
180 OPEN4,8,4,"#"
190 PRINT#15,"U1 4 0 18 1"
200 PRINT#15,"B-P 4 0"
210 PRINT#4,CHR$(B)
220 PRINT#15,"U2 4 0 18 1
230 [152]15,"I"
240 [160]4:[160]15
250 [153]"       FUNKTION IST AUSGEFUEHRT"